home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).do / A.DUEL.bas next >
BASIC Source File  |  1996-12-24  |  4KB  |  79 lines
  1. 5 G0% = 20:G1% = 20:S0% = 0:S1% = 0
  2. 10  FOR I = 771 TO 789: READ A: POKE I,A: NEXT 
  3. 20  DATA  173,48,192,136,208,4,198,1, 240,8,202,208,246,166,0,76,3,3,96
  4. 30  HOME : IF  PEEK( -16287) >127  AND  PEEK( -16286) >127  THEN  VTAB 8: HTAB 4: PRINT "YOU WILL NEED PADDLES INSTALLED": VTAB 9: HTAB 9: PRINT "TO PLAY 'A DUEL'": VTAB 11: HTAB 2: PRINT "REBOOT DISK AFTER INSTALLING PADDLES": END 
  5. 40  VTAB 5: HTAB 17: INVERSE : PRINT "A DUEL": NORMAL : VTAB 7: HTAB 13: PRINT "BY CARL BOWDEN": VTAB 10: HTAB 1
  6. 50  PRINT "  GUY #0 IS CONTROLLED USING PDL (0).": PRINT "  GUY #1 IS CONTROLLED USING PDL (1).": PRINT : PRINT "PRESS PADDLE BUTTON TO FIRE BULLET.
  7. 55  PRINT : PRINT "THE BULLET COURSE IS CONTROLLED USING": PRINT "THE PADDLES.  MAY THE BEST DUELER WIN."
  8. 56  FOR J = 1 TO 10000: NEXT 
  9. 60  VTAB 21: HTAB 2: INVERSE : PRINT "  GUY #0  ";: VTAB 21: HTAB 30: PRINT "  GUY #1  ";
  10. 70  NORMAL : VTAB 22: HTAB 2: PRINT "----------";: VTAB 22: HTAB 30: PRINT "----------";
  11. 80  INVERSE : VTAB 23: HTAB 2: PRINT ":HITS:0:::";: VTAB 23: HTAB 30: PRINT ":HITS:0:::";
  12. 85  VTAB 23: HTAB 17: PRINT "A DUEL";
  13. 90  NORMAL : VTAB 24: HTAB 2: PRINT "----------";: VTAB 24: HTAB 30: PRINT "----------";
  14. 100  GR : COLOR= 11: FOR X = 0 TO 39: HLIN 0,39 AT X: NEXT 
  15. 110  GOSUB 450: GOSUB 350
  16. 120  GOSUB 450
  17. 130  IF  PEEK( -16287) >127  THEN  GOTO 600
  18. 140  GOTO 120
  19. 150  GOSUB 350
  20. 160  IF  PEEK( -16286) >127  THEN  GOTO 800
  21. 170  GOTO 150
  22. 350 GX% =  INT(( PDL(1) -128)/40)
  23. 360  COLOR= 11: FOR J = G1% -3 TO G1% +3: HLIN 33,36 AT J: NEXT 
  24. 370 G1% = G1% -GX%
  25. 380  IF G1% <3  THEN G1% = 3
  26. 390  IF G1% >36  THEN G1% = 36
  27. 400  COLOR= 13: PLOT 36,G1%: PLOT 35,G1%: PLOT 35,G1% -1: PLOT 34,G1% -1: PLOT 35,G1% -2: COLOR= 9: PLOT 35,G1% -3: PLOT 34,G1% -3: PLOT 33,G1% -1: PLOT 36,G1% +1
  28. 410  COLOR= 3: PLOT 35,G1% +1: PLOT 34,G1% +1: PLOT 35,G1% +2: PLOT 34,G1% +2: COLOR= 0: PLOT 36,G1% +3: PLOT 34,G1% +3
  29. 420  RETURN 
  30. 450 GY% =  INT(( PDL(0) -128)/40)
  31. 460  COLOR= 11: FOR J = G0% -3 TO G0% +3: HLIN 3,6 AT J: NEXT 
  32. 470 G0% = G0% -GY%
  33. 480  IF G0% <3  THEN G0% = 3
  34. 490  IF G0% >36  THEN G0% = 36
  35. 500  COLOR= 13: PLOT 3,G0%: PLOT 4,G0%: PLOT 4,G0% -1: PLOT 5,G0% -1: PLOT 4,G0% -2: COLOR= 9: PLOT 4,G0% -3: PLOT 5,G0% -3: PLOT 6,G0% -1: PLOT 3,G0% +1
  36. 510  COLOR= 3: PLOT 4,G0% +1: PLOT 5,G0% +1: PLOT 4,G0% +2: PLOT 5,G0% +2: COLOR= 0: PLOT 3,G0% +3: PLOT 5,G0% +3
  37. 530  RETURN 
  38. 600  COLOR= 15: PLOT 7,G0% -1: PLOT 8,G0% -2: PLOT 8,G0%
  39. 610 B =  -16336: FOR J = 1 TO 6:S =  PEEK(B) - PEEK(B) - PEEK(B) - PEEK(B) - PEEK(B): NEXT 
  40. 615  COLOR= 14: PLOT 8,G0% -1
  41. 620  COLOR= 11: PLOT 7,G0% -1: PLOT 8,G0% -2: PLOT 8,G0%: PLOT 8,G0% -1
  42. 625 GG% = G0% -1
  43. 630  FOR I = 9 TO 39  STEP 2:GY% =  INT(( PDL(0) -128)/40)
  44. 640 GG% = GG% -GY%
  45. 642  IF GG% <0  THEN GG% = 0
  46. 644  IF GG% >39  THEN GG% = 39
  47. 650  COLOR= 14: PLOT I,GG%: POKE 0,2.5 *I: POKE 1,5: CALL 771
  48. 655  GOSUB 350
  49. 660  COLOR= 11: PLOT I,GG%
  50. 665  IF I = 35  OR I = 34  THEN  IF  ABS(GG% -G1%) < = 3  THEN H = G1%:K = 35: GOTO 1000
  51. 670  NEXT 
  52. 680  GOTO 150
  53. 800  COLOR= 15: PLOT 32,G1% -1: PLOT 31,G1% -2: PLOT 31,G1%
  54. 810 B =  -16336: FOR J = 1 TO 6:S =  PEEK(B) - PEEK(B) - PEEK(B) - PEEK(B) - PEEK(B): NEXT 
  55. 815  COLOR= 14: PLOT 31,G1% -1
  56. 820  COLOR= 11: PLOT 32,G1% -1: PLOT 31,G1% -2: PLOT 31,G1%: PLOT 31,G1% -1
  57. 825 GH% = G1% -1
  58. 830  FOR I = 30 TO 0  STEP  -2:GX% =  INT(( PDL(1) -128)/40)
  59. 840 GH% = GH% -GX%
  60. 842  IF GH% <0  THEN GH% = 0
  61. 844  IF GH% >39  THEN GH% = 39
  62. 850  COLOR= 14: PLOT I,GH%: POKE 0,100 -(2.5 *I): POKE 1,5: CALL 771
  63. 855  GOSUB 450
  64. 860  COLOR= 11: PLOT I,GH%
  65. 865  IF I = 4  OR I = 5  THEN  IF  ABS(GH% -G0%) < = 3  THEN H = G0%:K = 4: GOTO 1000
  66. 870  NEXT 
  67. 880  GOTO 120
  68. 1000  REM  HIT
  69. 1005  IF H <7  THEN H = 7
  70. 1006  IF H >32  THEN H = 32
  71. 1007  IF K >20  THEN  VTAB 21: HTAB 26: FLASH : PRINT "@!#&";: NORMAL : GOTO 1010
  72. 1008  VTAB 21: HTAB 12: FLASH : PRINT "@!#&";: NORMAL 
  73. 1010  FOR J = 0 TO 7: COLOR= 7: HLIN K -J/2,K +J/2 AT H +J: HLIN K -J/2,K +J/2 AT H -J: VLIN H -J,H +J AT K +J/2: VLIN H -J,H +J AT K -J/2
  74. 1020  POKE 0,100 -(13 *J): POKE 1,5: CALL 771
  75. 1030  COLOR= 11: HLIN K -J/2,K +J/2 AT H +J: HLIN K -J/2,K +J/2 AT H -J: VLIN H -J,H +J AT K +J/2: VLIN H -J,H +J AT K -J/2
  76. 1040  NEXT 
  77. 1045  VTAB 21: HTAB 12: PRINT "                  ";
  78. 1050  IF K >20  THEN S0% = S0% +1: INVERSE : VTAB 23: HTAB 8: PRINT S0%;: NORMAL : GOTO 150
  79. 1060 S1% = S1% +1: INVERSE : VTAB 23: HTAB 36: PRINT S1%;: NORMAL : GOTO 120